tan2 <- 
  tan2 %>% 
  mutate(
    # Female
    female = as.numeric(b_s2q1_gender == 2),
    # Support for mob violence
    beat_thief = as.numeric(b_s9q3_mob_accuseresponse == 1), 
    # Gender of victim in vignette (randomly assigned)
    female_victim = as.numeric(b_s9q3_mob_treat_male == 0), 
    # Community judgement of guilt
    accusation_not_true = as.numeric(b_s9q1_mob_trustaccusers == 2, na.rm =T),
    # Fear of false accusations
    afraid_accusation = as.numeric((b_s9q2_mob_falseaccuse == 1 |b_s9q2_mob_falseaccuse == 2), na.rm = T),
    # Ward identifier
    ward = paste0(district_c, ward_c),
    # Village identifier
    village = paste0(ward, village_c)
    
  )




